﻿Public Class Cliente
    Private MiDni As String
    Private MiNombre As String
    Private MiTelefono As String
    Private MiEmail As String
    Private MiWhatssapp As Boolean
    Private MiFacebook As String
    Private MiTwitter As String

    Public Sub New()

    End Sub

    Public Sub New(D As String, N As String, T As String, E As String, W As Boolean, F As String, Tw As String)
        MyBase.New()
        MiDni = D
        MiNombre = N
        MiTelefono = T
        MiEmail = E
        MiWhatssapp = W
        MiFacebook = F
        MiTwitter = Tw
    End Sub


    Public Property Dni() As String

        Get
            Return MiDni
        End Get
        Set(value As String)
            MiDni = value
        End Set
    End Property

    Public Property Nombre() As String

        Get
            Return MiNombre
        End Get
        Set(value As String)
            MiNombre = value
        End Set
    End Property

    Public Property Telefono() As String

        Get
            Return MiTelefono
        End Get
        Set(value As String)
            MiTelefono = value
        End Set
    End Property


    Public Property Email() As String
        Get
            Return MiEmail
        End Get
        Set(value As String)
            MiEmail = value
        End Set
    End Property

    Public Property Whatssapp() As Boolean
        Get
            Return MiWhatssapp
        End Get
        Set(value As Boolean)
            MiWhatssapp = value
        End Set

    End Property

    Public Property Facebook() As String
        Get
            Return MiFacebook
        End Get
        Set(value As String)
            MiFacebook = value
        End Set
    End Property

    Public Property Twitter() As String
        Get
            Return MiTwitter
        End Get
        Set(value As String)
            MiTwitter = value
        End Set
    End Property




End Class
